program q4
	use CurveFitting_module
	implicit none
	real, allocatable, dimension(:)	:: 	X, Y
	real	:: 	slope, intercept
	integer :: 	n
	integer :: 	i
	read*, n

	allocate(X(n))
	allocate(Y(n))
	do i = 1, n
		read*, X(i), Y(i)
	end do
	X = log10(X)
	Y = log10(Y)
	call cfLeastSquareRegression(X, Y, slope, intercept)
	print*, slope, intercept
end program